﻿Public Class Form3

    Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ' save volume
        objIniFile.WriteString("settings", "volume", VolLevel)
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = Me.Icon.ToBitmap
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width - Me.Width - 20
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height - Me.Height - 20
        'MsgBox(VolLevel)
        TrackBar1.Value = VolLevel
        Label1.Text = VolLevel

    End Sub

   

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Timer1.Enabled = False
        VolLevel = TrackBar1.Value
        Form1.Player.settings.volume = VolLevel
        Timer1.Enabled = True
        Label1.Text = VolLevel
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Close()
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Me.Close()
    End Sub
End Class